with acteur; with Spectateur;
with Strings; use Strings;
with Serveur;
with saisir_afficher; use saisir_afficher;
procedure demarrer_client is
begin
   declare
      individuLogged : individu := saisir("Votre nom ? -> ");
      inscrire : boolean := false;
   begin
      while individuLogged = "" loop
         individuLogged := saisir("Votre nom ? -> ");
      end loop;
      inscrire := serveur.Inscrire(N => individuLogged);
      if inscrire then
         declare
            task demarrer_spectateur is
            end demarrer_spectateur;
            task body demarrer_spectateur is
            begin spectateur.demarrer (individuLogged, 0.0);
            end;

            task demarrer_acteur is
            end demarrer_acteur;
            task body demarrer_acteur is
            begin acteur.demarrer (individuLogged, 1.0);
            end;
         begin
            null;
         end;
      else
         raise Program_Error;
      end if;
   end;
end;
